home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / asm / bmac.arc / TITLE.MAC < prev   
Text File  |  1988-07-27  |  768b  |  45 lines
  1.     .XLIST
  2. IF1
  3. ; title.mac  15 Nov 83  Craig Milo Rogers at USC/ISI
  4. ;    Created these macros to make titles better.
  5.  
  6. .TITLE    MACRO    TEXT
  7.     TITLE    TEXT
  8.     ENDM
  9.  
  10. .SBTTL    MACRO    TEXT
  11. IF1
  12. @TTLNUM    = @TTLNUM + 1
  13.     @SBTTL    <TEXT>,%@TTLNUM,%@PAGNUM
  14. ELSE
  15.     SUBTTL    TEXT
  16. ENDIF
  17.     ENDM
  18.  
  19. .SBHED    MACRO    TEXT
  20. IF1
  21. @TTLNUM    = @TTLNUM + 1
  22. @PAGNUM    = @PAGNUM + 1
  23.     @SBTTL    <TEXT>,%@TTLNUM,%@PAGNUM
  24. ELSE
  25.     SUBTTL    TEXT
  26.     PAGE    +
  27. ENDIF
  28.     ENDM
  29.  
  30. @SBTTL    MACRO    TEXT,TNUM,PNUM
  31. IF &TNUM LT 10
  32. @TTL0&TNUM EQU    'Page  &PNUM: &TEXT'
  33. ELSE
  34. @TTL&TNUM EQU    'Page &PNUM: &TEXT'
  35. ENDIF
  36.     ENDM
  37.  
  38. @TTLNUM    = 0            ; Number of subtitles.
  39. @PAGNUM    = 1            ; Current "page" number.
  40.  
  41. ELSE
  42.     PAGE    ,132        ; Line printer width
  43. ENDIF
  44.     .LIST
  45.